Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/HyperTalk/Stack Starter ß.976/Stack Starter fl.976/card_16874.txt

Text File | 1988-08-03 | 13.0 KB | 659 lines

-- card: 16874 from stack: in.976
-- bmap block id: 14993
-- flags: 0000
-- background id: 2295
-- name: animated icons 5
----- HyperTalk script -----
on closeCard
  show card btn id 18
  show card btn id 19
  pass closeCard
end closeCard

on idle
  if visible of field "Mouse Loc2" is true then
    put the mouseLoc into field "Mouse Loc2"
  end if
  send action to btn "Fly"
  send idle to stack
  exit idle
end idle


-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=76 right=283 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
  Ninja L
end mouseEnter


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=34 top=92 right=142 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 4348 / 4348
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Cross
----- HyperTalk script -----
on mouseUp
  repeat with i = 4342 to 4348
    set icon of me to i
  end repeat
  Ninja Blink
  Ninja L
end mouseUp

on mouseEnter
  Ninja L
end mouseEnter


-- part 2 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=34 top=144 right=194 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 26154 / 26154
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  --set hilite of me to false
  set icon of me to 21244
  set icon of me to 29953
  set icon of me to 736
  set icon of me to 30538
  set icon of me to 13788
  set icon of me to 29666
  set icon of me to 13964
  --set hilite of me to true
  set icon of me to 13964
  set icon of me to 29666
  set icon of me to 13788
  set icon of me to 30538
  set icon of me to 736
  set icon of me to 29953
  set icon of me to 21244
  set icon of me to 26154
  Ninja Blink
  Ninja L
end mouseUp

on mouseEnter
  Ninja L
end mouseEnter



-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=34 top=196 right=246 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 6132 / 6132
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Shark
----- HyperTalk script -----
on mouseUp
  set icon of me to 6132
  send mouseEnter to btn "Jaws"
  Ninja Blink
  Ninja L
end mouseUp

on mouseEnter
  Ninja L
end mouseEnter
set icon of me to 28451
set icon of me to 6327
set icon of me to 28451
set icon of me to 6327
set icon of me to 28451
set icon of me to 6327
set icon of me to 26154


-- part 4 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=34 top=248 right=298 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 6167 / 6167
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Mac
----- HyperTalk script -----
on mouseUp
  repeat with i = 6167 to 6170
    set icon of me to i
  end repeat
  set icon of me to 5167
  repeat with i = 6170 down to 6167
    set icon of me to i
  end repeat
  Ninja Blink
  Ninja L
end mouseUp

on mouseEnter
  Ninja L
end mouseEnter

set icon of me to 11675
set icon of me to 20559
set icon of me to 11675
set icon of me to 20559
set icon of me to 11675
set icon of me to 20559
set icon of me to 26154



-- part 5 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=301 top=92 right=142 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 6156 / 6156
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dino
----- HyperTalk script -----
on mouseUp
  repeat 3 times
    set icon of me to 6154
    set icon of me to 6155
    set icon of me to 6156
  end repeat
  Ninja Blink
  Ninja U
end mouseUp

on mouseEnter
  Ninja U
end mouseEnter



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=301 top=144 right=194 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 4138 / 4138
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ninja
----- HyperTalk script -----
on mouseUp
  repeat with iconid = 4137 to 4145
    set icon of me to iconid
  end repeat
  set icon of me to 4137
end mouseUp

on mouseEnter
  Ninja C
end mouseEnter




-- part 7 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=301 top=196 right=246 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 1463 / 1463
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set icon of me to 8437
  set icon of me to 8719
  set icon of me to 12999
  set icon of me to 10385
  set icon of me to 1805
  set icon of me to 30495
  set icon of me to 19
  --end mouseUp
  --set hilite of me to true
  set icon of me to 19
  set icon of me to 30495
  set icon of me to 1805
  set icon of me to 10385
  set icon of me to 12999
  set icon of me to 8719
  set icon of me to 8437
  set icon of me to 1463
  -- set hilite of me to false
  Ninja Blink
  Ninja D
end mouseUp

on mouseEnter
  Ninja D
end mouseEnter





-- part 8 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=301 top=248 right=298 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 4011 / 4011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Optical
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  repeat 2 times
    set icon of me to 4012
    set icon of me to 4011
  end repeat
  Ninja Blink
  Ninja D
end mouseUp

on mouseEnter
  Ninja D
end mouseEnter


-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=84 top=181 right=195 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Click Here to Hide Artwork
----- HyperTalk script -----
on mouseUp
  show card btn "Click Here to Show Artwork"
  show card btn "Show Artwork"
  set icon of card btn "Ninja" to 4145
  set icon of card btn "Ninja" to 4138
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=98 top=283 right=301 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play All
----- HyperTalk script -----
on mouseUp
  PlayAll
end mouseUp



-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=339 top=76 right=297 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
  Ninja R
end mouseEnter



-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=300 top=76 right=93 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
  Ninja U
end mouseEnter


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=39 right=59 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
  Ninja U
end mouseEnter



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=314 top=156 right=174 bottom=326
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
  repeat 2
    set icon of card btn "Ninja" to 4142
    Ninja Blink
    set icon of card btn "Ninja" to 4142
  end repeat
end mouseEnter



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=304 top=156 right=170 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
  Ninja winkL
end mouseEnter



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=324 top=156 right=170 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
  Ninja winkR
end mouseEnter



-- part 18 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=76 top=94 right=282 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Click Here to Show Artwork
----- HyperTalk script -----
on mouseUp
  set visible of me to not visible of me
  if visible of me is false then hide card btn id 19
  Ninja Blink
  Ninja L
end mouseUp

on mouseEnter
  Ninja L
end mouseEnter


-- part 19 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=342 top=93 right=286 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Artwork
----- HyperTalk script -----
on mouseUp
  set visible of me to not visible of me
  set icon of card btn "Ninja" to 4145
  set icon of card btn "Ninja" to 4140
end mouseUp

on mouseEnter
  Ninja R
end mouseEnter



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=193 right=229 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jaws
----- HyperTalk script -----
on mouseEnter
  global Jaws2
  put name of the target into me
  if Jaws2 <> empty then
    put name of me into me
    put the mouseloc into move2
    show me at move2
    repeat 3
      set icon of me to 6135
      play "Crunch"
      set cursor to -1
      set icon of me to 6136
    end repeat
    set icon of me to 0
    wait 5 secs
    put empty into Jaws2
  else
    put 1 into Jaws2
    repeat with i = 6130 to 6132
      set icon of me to i
      put loc of me into move1
      subtract 25 from item 1 of move1
      show me at move1
    end repeat
    swim
  end if
end mouseEnter

on swim
  global Jaws2
  repeat until Jaws2 is empty
    put name of me into me
    put loc of me into move1
    put the mouseloc into move2
    if item 1 of move1 - item 1 of move2 > 13 then
      set icon of me to 6132
    end if
    if item 1 of move2 - item 1 of move1 > 13 then
      set icon of me to 6134
    end if
    if item 2 of move1 - item 2 of move2 > 5 then
      set icon of me to 6133
    end if
    if item 2 of move2 - item 2 of move1 > 5 then
      set icon of me to 6137
    end if
    set the loc of me to the mouseLoc
    if move1 = move2 then mouseEnter
  end repeat
end swim


-- part 21 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=309 top=311 right=327 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Icons
----- HyperTalk script -----
on mouseUp
  set hilite of me to true
  doMenu short name of me
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=221 right=279 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fly
----- HyperTalk script -----
on action
  put random(3) into this
  if this <2 then exit action
  put the loc of me into temp
  if item 2 of temp <1 then put 342 into item 2 of temp
  else subtract 10 from item 2 of temp
  if icon of me is 1 then set icon of me to 2
  else set icon of me to 1
  show btn "Fly" at temp
end action

on mouseEnter
  repeat random(12)
    put random(512) into temp
    put " ," & random(342) after temp
    show btn "Fly" at temp
  end repeat
end mouseEnter


-- part contents for background part 56
----- text -----
animated icons 5

-- part contents for background part 78
----- text -----
Prev Card: animated icons 4

-- part contents for background part 79
----- text -----
Next Card: animated icons 6

-- part contents for background part 68
----- text -----
164,70

-- part contents for background part 67
----- text -----
Mouse Location:

-- part contents for background part 82
----- text -----
Free Space:

-- part contents for background part 83
----- text -----
18.41 K